dissecando 

0 ego s 


Os sete jogos contidos neste volume tem uma característica única: 
o leitor participa do processo de criação acompanhando a montagem 
linha oor linha. 

É 

Modificações e aperfeiçoamentos são propostos e resolvidos com 
detalhes. Ao terminar este livro o leitor além de ter sete jogos geniais, 
terá adquirido a habilidade de programar com criatividade. 

Uma obra didática indispensável ao usuário de um micro da linha 
SINCLAIR: Ringo R-470, CP-200, TK 82/83/85, AS-1000, SINCLAI R 
ZX-81 ou TS-1000. 


coleção 

UR AN IA 




o 

m 

CD 



o 

o 

p 



CARLOS EDUARDO ROCHA SALVA- 
TO (DUDA) é um autor extremamente jovem 
(nasceu em 1968 e ainda está cursando o cole¬ 
gial), mas apesar disso é um veterano. Como au¬ 
tor de Coleção de Programas Vol. I (Editora 
Moderna 1983), foi um dos pioneiros a publi¬ 
car material para micros da linha SINCLAIR. 
Posteriormente, adquiriu uma notável experiên¬ 
cia didática ao colaborar com a revista Micro- 
hobby como responsável pela seção Dissecando. 

Esta experiência está sendo transportada 
ao leitor nessa obra, onde o Duda disseca pro¬ 
gramas, mostrando o "como" e o "porquê" de 
cada linha. 

Os programas são de jogos divertidos, sua 
análise é feita com a dedicação e a seriedade de 
um profissional, que já se tornaram a marca 
registrada dos trabalhos do Duda. 
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nota do 


editor 


Quando o “Duda" lançou seu primeiro livro (Coleção de Programas 
VoL I, Editora Moderna 1983), a maior preocupação foi a de atender a um 
tipo particular de solicitação. Havia uma quantidade grande de usuários de 
computadores da linha SINCLAIR que só dispunham de software através 
de algumas poucas fitas e algumas raras publicações. 

O momento agora é outro: o software disponível aumentou exponen- 
ciaimente, bem como o número de publicações. O usuária tem farta escolha 
para alimentar seu computador. 

Do ponto de vista didático, porém; não se fez muita coisa nestes dois 
anos. O usuário foi encarado como um simples consumidor e não como um 
possível futuro produtor. 

Foi pensando nisso que planejamos este livro. Nele os programas con¬ 
tendo jogos em BASIC são fornecidos ao leitor com uma característica que 
os diferencia de todos os demais: eles são explicados e comentados linha por 
linha. São propostas alterações e aperfeiçoamentos, fazendo o leitor parti¬ 
cipar do processo de criação. 

Para o aprendizado, esta técnica é de inestimável valor, sendo muito 
mais eficiente do que tratados e mais tratados de considerações teóricas. 

“Unir o útil ao agradável" é um chavão muito batido, mas de uso 
inevitável para descrever a última obra do nosso mais jovem autor. A digi¬ 
tação dos programas produz resultados divertidos, mais do que isto, obtém- 
se no fim um sub-produto extremamente importante, e de forma suave e 
eficaz aprende-se a programar e criar. 

Prof. Pierluigi Piazzí 
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senha 


INSTRUÇÕES 

Este programa simula o conhecido jogo SENHA. Só que desta vez o 
computador esconderá o número. O número escolhido pelo computador é 
formado por 4 algarismos. Esses algarismos podem ser números de 0 a 5, e 
podem ser repetidos. 


SENHfi 


Figura 1 
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Você deverá digitar um número de 4 algarismos, igual ao que o com¬ 
putador escolheu. Se o número que você digitou não for exatamente igual 
ao do computador, ele fornecerá os seguintes dados: 

1 - Tendo algum algarismo igual ao número que o computador escon¬ 
deu, mas fora do lugar, o dado será representado pela letra 'B'. 

2 - Tendo algum algarismo igual ao número que o computador escon¬ 
deu e na posição correta, o dado será representado pela letra 'P'. 

Sempre que o computador apresentar um dado, apenas dirá o que 
foi especificado nos ítens anteriores, não dirá qual é o número correspon¬ 
dente. 

Você só terá 6 chances de acertar o número. 
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Figura 2 
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EXPLICAÇÃO 

1 a Parte — Iniciação (linha 10 a 60) 

linha 10 - Imprime a palavra SENHA na posição (0,12) do vídeo. 

linha 20 

a 40 - Essas linhas dimensionam as variáveis N$, G$, W$ respectiva¬ 

mente. Como o número que aparece entre parênteses nestas li¬ 
nhas é 4, isto quer dizer que estas variáveis sempre terão 4 dígi¬ 
tos de comprimento. 

linha 50 - Zera a variável que contará o número de chances que você tem 
para acertar o número que o computador escondeu. 

linha 60 - Cria uma nova semente, que irá gerar os números aleatórios. 

2? Parte — Esta parte gera o número que o computador escolherá. 

(linha 70 a 90) 

linha 70 - Inicia um LOOP de quatro voltas. 

linha 80 - A variável N$ guardará o número que o computador está escon¬ 
dendo. (Veja mais detalhes sobre esta linha na parte de MODI¬ 
FICAÇÕES). 




linha 90 - Finaliza o LOOP. 

3?Parte — início do vídeo (linha 100) 

linha 100 - Desloca o início do vídeo para a quarta linha» 

4? Parte — Verificação do fim do jogo (linha 110 a 120) 

linha 110 - Incrementa a variável contadora das chances, 
linha 120- Verifica se a variável contadora é igual ao número de chances 
mais um, se esta condição for verdadeira o programa salta para 
linha 360, caso contrário continua o programa. 

5? Parte — Entrada e impressão do número (linha 130 a 150) 

linha 130- Espera que você entre com um número de quatro algarismos. 

Este número que você digitou será armazenado na variável G$. 
linha 140- Se você não entrou com nenhum número o programa vai para 
linha 360, se você eittrou com um número o programa continua, 
linha 150- Imprime na décima segunda coluna o número que você digitou 
seguido de um espaço. 

6? Parte — Colocação do 'P' (linha 160 a 230) 

linha 160 - Verifica se o número que você digitou é igual ao do computador, 
se for o programa vai para linha 350, caso contrário, o programa 
continua. 

linha 170- Faz a variável W$ ser igual ao número que o computador esco- 
Iheu. Isto é feito para que durante a comparação entre os núme¬ 
ros não se perca o número do computador- 
linha ISO - Inicia um LOOP de quatro voltas. 

linha 190 - Esta linha irá comparar o número que você digitou com o núme¬ 
ro do computador, se os números forem iguais o programa con¬ 
tinua, caso contrário vai para a linha 230. 
linha 200 - Faz a variável W$ ser igual à letra Isto é feito para que o com¬ 
putador coloque a letra 'P' no vídeo e evite fazer a comparação 
para colocar o 'B'. 

linha 210 - Imprime a letra no vídeo. 

linha 220 - Faz a variável G$ ser igual a 7'. Isto é feito caso o número esco¬ 
lhido pelo computador tenha algarismos repetidos, 
linha 230 - Finaliza o LOOP. 
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7? Parte — Colocação do 'B' (linha 240 a 320) 
linha 240 - Inicia um LOOP de quatro voltas. 

linha 250- Se a variável W$ for igual à letra 'P', o programa vai para linha 
320, caso contrário o programa continua. Esta condição é neces¬ 
sária senão o número que está na posição correta, terá uma letra 
'P' e uma letra 'B' para representá-lo. 
linha 260 - Inicia um “sub-LOOP" de quatro voltas. 

linha 270 - Nesta linha são estabelecidas duas comparações. A primeira com¬ 
para as variáveis I e J, se elas forem iguais o programa vai para a 
linha 310, isto acontece por uma razão muito óbvia: se as variá¬ 
veis I e J forem iguais, isso quer dizer que o computador está 
comparando dois números na mesma posição, se os números fo¬ 
rem iguais já deverá ter sido atribuída a letra 'P', caso contrário 
não seria atribuído nenhum código. Outra comparação que tam¬ 
bém é feita nesta linha é a comparação de um número do compu¬ 
tador com todos os seus números, caso exista um número igual 
mas fora da posição o programa continua, mas se não existir ne¬ 
nhum número igual o programa vai para linha 310. 
linha 280 - Se no seu número existir um número igual ao do computador, 
mas ele estiver fora da posição a variável G$ fica sendo igual a 

ayn 

linha 290 - Imprime a letra 'B' no vídeo. 

linha 300- Manda o programa para linha 320, senão os números repetidos 
também serão computados, 
linha 310- Finaliza o "sub-LOOP". 

8? Parte — Congratulações (linha 350) 

linha 350 - Imprime a palavra “PARABÉNS" no vídeo. 

9? Parte — Impressão do número correto (linha 360) 
linha 360 - Imprimirá no vídeo o número correto. 

10?Parte — Finalização (linha 370 a 460) 

Obs.: Esta parte será usada em quase todos os programas deste livro. 

Para evitar repetições nos outros programas, deixarei apenas indicado. 

linha 370 - Imprime na posição (21,0), se você quer jogar de novo. 
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linha 380 - Se você pressionar a letra 'S' o programa irá para linha 410. 
linha 390 - Se você pressionar a letra 'N' o programa irá para linha 440. 
linha 400- Se você não pressionar nenhuma dessas duas letras o programa 
volta para linha 370. 

linha 410 - Põe o computador no modo SLOW. 
linha 420 - Limpa todo o conteúdo do vídeo, 
linha 430 - Manda o programa para linha 10. 
linha 440 - Limpa todo o conteúdo do vídeo. 

linha 450- Imprime na posição (10,13) a palavra "FIM" em vídeo inverso, 
linha 460 - Pára o programa. 

11? Parte — Auto-Start do programa (linha 470 a 490) 

linha 470 - Armazena em fita o programa com nome "SENHA", 
linha 480 - Roda .o programa, 
linha 490 - Pára o programa. 


S E N H H 


1122 P 
1133 P 
1414- B 


4* 14* H- P 
B 


*1 A ~ 

JL :* 


Figura 3 


414-8' p 

0 NUMERO ERA OiOO 


DESEJA jogar nouamente 


(S/N) 


MODIFICAÇÕES 
Modificação 1 

Uma modificação muito simples de ser feita, é a da linha 80. Esta linha 
define qual o número que será escolhido pelo computador. No jogo normal 
o cpmputador só escolhe números entre 0 e 4. Para modificá-ío deve-se alte¬ 


rar o número que vem logo após a instrução RN D. No programa este número 
é 5. Se você mudar este número para 8 o computador escolherá números en¬ 
tre 0 e 7 aumentando a dificuldade do jogo. Você também pode diminuir a 
dificuldade do jogo diminuindo este número. Se voçê colocar um número 
maior que 10 o computador também poderá escolher letras e números ao in¬ 
vés de escolher só números. 

Modificação 2 

Outra modificação que pode ser facilmente feita é a alteração do nú¬ 
mero de chances que você tem para acertar o número que o computador es¬ 
condeu. Isso pode ser feito trocando na linha 120 o número que aparece logo 
após o sinal de igual e que deve ser igual ao número de chances que você quer 
ter, mais um. 

Modificação 3 

Essa modificação será um pouco mais complicada, porque atingirá vá¬ 
rias linhas. Esta modificação alterará o tamanho do número que o compu¬ 
tador escolherá. 

Façamos de conta que você queira alterar o tamanho do número que 
o computador escolherá para um tamanhç X. Você deverá alterar o valor de 
X, que no programa original é igual a 4, nas seguintes linhas: 20,30,40,70, 
180, 240, 260 e também deverá por na linha 140 X espaço^entre aspas. 

Modificação 4 

Esta última modificação é extremamente complexa. Iremos acrescen¬ 
tar algumas linhas ao programa para que o número escolhido pelo compu¬ 
tador não tenha algarismo repetidos. 

Acrescente as seguintes linhas: 

81- FOR J = 1 TO 4 

32 IF N$(I)=N$(J) AND IoJ THE 
N GOTO 30 

33 NEXT J 


O computador demorará um pouco mais para escolher o número, te 
nha paciência ou se preferir acrescente mais estas duas linhas: 


35 FRST 
95 SLOW 
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Agora tente modificar o programa de modo que as alterações citadas an¬ 
teriormente já sejam perguntadas pelo próprio programa. O Display inicial de¬ 
verá ser o seguinte: 
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ESCOLHO 0 NUMERO. 


Após você ter modificado para que ele fique desse jeito, olhe o apên¬ 
dice A e compare com a minha resposta. 


QUADRO DE VARIÁVEIS PRINCIPAIS DO PROGRAMA 

N$ - senha escolhida pelo computador 
G$ - senha que você vai “chutar” 

W$ - verifica se você acertou a senha 
C - número de “chutes” dado por você 
I - variável contadora na comparação das senhas 

J - variável contadora na comparação das senhas 



üorto 












porto 


INSTRUÇÕES 

Logo após você ter digitado RUN você deverá ver na teia uma imagem 

assim: 


a 



0 


Figura 1 



No alto da tela você verá o número 3 que índica o número de chances 
que você tem. No centro está o porto onde você deverá descarregar a sua 
carga na segunda fase do jogo e o número 0 que indica quantos pontos você 
já fez. 

Logo abaixo do número 3 existe um ponto que representa o seu navio, 
mas ele não estará obrigatoriamente colocado nesta posição, porque sua lo¬ 
calização na tela é aleatória. 
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Na parte de baixo da tela estão localizados os três portos onde você 

buscará a sua carga, na primeira fase. 

Logo após você digitar RUN o seu barco já sairá em direção aos três 
portos, e você deverá controlá-los através dos seguintes comandos: 

5 - para a esquerda; 

8 - para a direita; 

ou através do joystick. 

Você precisa atracar exatamente no ponto mais saliente dos portos, 
caso contrário você baterá e perderá uma chance. 

Se você atracar perfeitamente em um dos portos, a segunda fase se ini¬ 
ciará imediatamente. 

A segunda fase é semelhante à primeira, só que você irá partir de um 
ponto aleatório na parte de baixo da tela em direção ao único porto na parte 
de cima da tela, para descarregar a sua carga. 

Conforme você for atracando nos portos, na parte inferior da tela, eles 
vão diminuindo de tamanho mostrando que a carga existente nestes portos 
está acabando. Quando você conseguir acabar com a carga dos três portos, 
novas cargas serão colocadas. 
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380 NEXT 
00 

410 GOTO 470 
420 LízT X =X +1 
430 GOTO 100 

440 IF d = - 1 T H dN LET d = 0 
4 5é IF C = -1 THEN LET 0=0 
460 IF D = -i THEN LET D=0 
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500 NEXT Z 
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R50 IF INKEY $ = !: S“ THEN GOTO 580 
570 IF INKEY $ = I! N 
560 GOTO dõO 
590 CL5 
600 5L0U 
610 GOT0 IO 
620 OLS 

630 PRINí PT 10,10; 

540 STOP 

550 SPUd :i P 0RTS‘' 

650 RUN 
570 STOP 
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THEN GOTO 520 
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EXPLICAÇÃO 

1 ?Parte — Iniciação (linha 10 a 100) 

linha 10 - A variável T assume o valor 3. A variável T guardará o número de 
chances que você tem. 

linha 20 - Zera a variável X, que contará os seus pontos, 
linha 30 - A variável B assume o valor 4. A variável B definirá o tamanho do 
primeiro porto da parte inferior da tela. 
linha 40 - A variável C assume o valor igual ao de B. A variável C definirá o 
tamanho do segundo porto da parte inferior da tela. 
linha 50 - A variável D assume o valor igual ao de B. A variável D definirá 
o tamanho do terceiro porto da parte inferior da tela. 
linha 60 - O conteúdo da variável alfanumérica F$ será o caractere número 4. 
linha 70 - O conteúdo da variável alfanumérica B$ será igual a 4 espaços in¬ 
versos. 

linha 80 - O conteúdo da variável alfanumérica C$ será o mesmo da variável 
B$. 
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linha 90 - O conteúdo da variável alfanumérica D$ será o mesmo da variável 
B$. 

linha 100 - Limpa todo o conteúdo da tela. 

2? Parte — Checagem das cargas (linha 110) 

linha 110 - Verifica se a carga dos três portos é igual a zero e também se você 
ainda tem chances de continuar o jogo. Se os portos não tiverem 
mais cargas, o programa vai para a linha 30 onde as cargas serão 
reestabelecidas, caso contrário o programa continua. 

3? Parte — Impressão dos Portos (linha 120 a 190) 

linha 120 - Imprime na posição (0,0) a variável T, imprime na posição (14,0) 
os caracteres 133 e 128. Esta linha também imprime na posição 
(25,0) a variável X. 

linha 130- Imprime o conteúdo da variável F$ na posição (15,1). 
linha 140 - Imprime o conteúdo da variável F$ na posição (3,20). 
linha 150 - Imprime o conteúdo da variável F$ na posição (13,20). 
linha 160 - Imprime o conteúdo da variável F$ na posição (23,20). 
linha 170 - Imprime o conteúdo dã variável B$ até B na posição (3,21). 

Exemplo: Se B for igual a 2 só serão impressos dois espaços in¬ 
versos. 

linha 180 - imprime o conteúdo da variável C$ até C na posição (21,13). 
linha 190 - Imprime o conteúdo da variável D$ até D na posição (21,23). 

4? Parte — Primeira Fase (linha 200 a 260) 

linha 200 - Escolhe a posição inicial da qual sairá o seu navio, e coloca na 
variável E. 

linha 210- Inicia um LOOP que contará regressivamente de 39 até 3. Este 
LOOP serve para ser feita a descida até os portos, 
linha 220 - Caso você pressione a tecla '5' o seu navio se deslocará de uma 
posição para a esquerda. 

linha 230 - Caso você pressione a tecla '8' o seu navio se deslocará de uma 
posição para a direita. 

linha 240 - Imprime um ponto (PLOT) na posição (E,Z). 
linha 250- Apaga o ponto que foi impresso na linha anterior. Isto é feito 
para que o ponto fiquè piscando, 
linha 260- Finaliza o LOOP. 
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5? Parte — Checa se o navio bateu (linha 270 a 320) 

linha 270 - Se a variável E for igual a 6, quer dizer que você atracou no pri¬ 
meiro porto, por isso a variável B será diminuída de um, pois você 
já pegou uma carga lá existente, caso contrário o programa con¬ 
tinua. 

linha 280 - Se a variável E for igual a 26, quer dizer que você atracou no se¬ 
gundo porto, por isso a variável C será diminuída de um, pois 
você já pegou uma carga lá existente, caso contrário o programa 
continua. 

linha 290 - Se a variável E for igual a 46, quer dizer que você atracou no ter¬ 
ceiro porto, por isso a variável C será diminuída de um, pois você 
já pegou uma carga lá existente, caso contrário o programa con¬ 
tinua, 

linha 300 - Checa se no porto que você atracou existe carga, se positivo o 
programa continua, caso contrário o programa vai para a linha 
440. 

linha 310 - Checa se você atracou em um dos três portos, se atracou o progra¬ 
ma vai para a segunda fase (linha 330). 

linha 320- Manda o programa para linha 470. 

6?Parte — Segunda Fase (linha 330 a 390) 

linha 330- Escolhe a posição inicial de onde sairá o seu navio e coloca na 
variável E. 

linha 340 - Inicia um LOOP que contará de 3 até 39. Este LOOP serve para 
que seja feita a subida até o porto. 

linha 350 - Caso você pressione .a tecla '5 # o seu navio se deslocará uma posi¬ 
ção para a esquerda. 

linha 360 - Caso você pressione a tecla '8' o seu navio se deslocará uma po¬ 
sição para a direita. 

linha 370 - Imprime um ponto (PLOT) na posição (E,Z). 

linha 380 - Apaga o ponto que foi impresso na linha anterior, isto é feito para 
que o ponto fique piscando. 

linha 390 - Finaliza o LOOP. 

7? Parte - Checa se o navio bateu (linha 400 e 410) 

linha 400 - Se a variável E for igual a 30, significa que você atracou perfeita¬ 


mente no porto superior e o programa vai para a linha 420, caso 
contrário o programa continua, 
linha 410 - Manda o programa para a linha 470. 

8? Parte — Soma de Ponto (linha 420 e 430) 

linha 420 - Soma um ponto a variável X, que no caso é o seu placar, 
linha 430 - Manda o programa para a linha 100 e reinicia a primeira fase. 

9? Parte — Batida do Navio (linha 440 a 500) 

Unha 440 - Se você atracar no primeiro porto e houver carga, a variável B 
que guarda o número de cargas ficou sendo negativa e precisa 

ser zerada. 

linha 450 - Se você atracou no segundo porto e não havia carga, a variável 
C que guarda o número de cargas ficou sendo negativa e precisa 

ser zerada. 

linha 460 - Se você atracou no terceiro porto e não havia carga, a variável 
D que guarda o número de cargas ficou sendo negativa e precisa 

ser zerada. 

linha 470 - Imprime a palavra 'SPLASH' na posição (10,10). 
linha 480- Diminue a variável T de um, diminuindo, portanto, as suas 
chances. 

linha 490- Inicia um LOOP que conta de 1 até 50. Este LOOP serve apenas 
para dar uma pausa, 
linha 500 - Finaliza o LOOP. 

10? Parte — Verificação do Fim do Jogo (linha 510 a 540) 

linha 510- Se as suas chances já tiverem sido esgotadas é feita uma limpeza 
total da tela, caso contrário, o programa continua, 
linha 520- Se as suas chances já tiverem sido esgotadas, a mensagem 'FIM 
DE JOGO' é impressa na posição (5,10) e o seu placar é impresso 
na posição (10,12), caso contrário, o programa continua, 
linha 530 - Se as suas chances já tiverem sido esgotadas, o programa vai para 
a linha 550, caso contrário, o programa continua, 
linha 540 ■■ Manda o programa para linha 100 e reinicia a primeira fase. 

11? Parte — Finalização (linha 550 a 640) 

Veja a décima parte do programa SENHA. 
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12? Parte - Auto-Start do programa (linha 650 a 670) 

linha 650 - Armazena em fita o programa com o nome de PORTO, 
linha 660 - Roda o programa, 
linha 670 - Pára o programa. 


Modificação 3 

Você pode fazer um método de pontuação diferente. Você pode mar¬ 
car 1 ponto quando conseguir atracar no porto de baixo e 1 ponto quando 
chegar no porto de fcima. Você pode fazer isto acrescentado a linha: 


LET X=X +1 



PLACAR = 12 


Figura 3 


DESEJA JOGAR NOUAMENTE ? 


CS/N) 


MODIFICAÇÕES 

Modificação 1 

Você pode alterar o número de chances que tem para atracar perfeita¬ 
mente nos portos. Isto pode ser facilmente feito, trocando o número que a 
variável T assume na linha 10. Se você colocar: 

10 LET T =5 

poderá atracar erroneamente 5 vezes. 

Modificação 2 

Você pode modificar o tamanho dos três portos da parte inferior do 
vfdeo. Para modificar o tamanho de todos os portos é só alterar a linha 30 
para: 

30 LET B = tamanho do 19 porto 
40 LET C = tamanho do 29 porto 
50 LET D = tamanho do 39 porto 


Modificação 4 

Retirando as linhas 250 e 380, você terá um efeito diferente no vídeo. 
Ao invés de seu navio ser um ponto "piscante", ele será um traço contínuo que 
mostrará todo o seu percurso tanto na ida, como na volta. 

Obs.: Como o programa original tem mais de 2K, quem não tem ex¬ 
pansão não poderia rodá-lo. Por isso nós vamos dedicar as próximas modifi¬ 
cações para diminuir o tamanho do programa sem alterar o seu objetivo. 

Modificação 5 

Como primeira opção poderíamos fundir da linha 120 até a 190 em 
uma só. Por exemplo: 

10 PRINT HT 10., 10; “ALEPH" ; AT 20, 

10;“MODERNA" 


Modificação 6 

Desta vez nós iremos fundir as linhas 220 e 230. Para fundi-las nós te¬ 
remos que usar as operações lógicas. Para quem não tem idéia do que se trata 
numa operação lógica, digite o seguinte programa. 

10 PRINT 3 >4. 

20 PRINT 3=3 
30 PRINT 2+l=l+l+l 
4.0 PRINT 30*1=2*20 
30 PRINT 1-2=2-1 

Após digitar RUN você deve ver na tela os seguintes números: 

0 

1 

1 

0 

0 
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Neste programa simplesmente são executadas operações lógicas. 
Exemplos: 

linha 10 - Verifica se 3 é maior que 4. Se for, imprime 1, caso contrário, 
imprime 0. 

linha 20 - Verifica se 3 é igual a 3. Se for, imprime 1, caso contrário, impri¬ 
me 0. 

Agora nós substituiremos as linhas 220 e 230 pela linha: 


220 LET E =E + ( ÍNKEY $ = “ 8 *■*) 



Esta linha verifica se você está pressionando a tecla 8. Se você estiver, 
o computador soma 1 à variável E. Se você estiver pressionando a tecla 5 o 
computador subtrai 1 da variável E. Se você não pressionar nenhuma dessas 
teclas, a variável E continua com o valor que tinha. Esta modificação também 
pode ser feita nas linhas 350 e 360. 


QUADRO DE VARIÁVEIS PRINCIPAIS DO PROGRAMA 

T - número de chances 

X - contadora dos pontos 

B - tamanho do primeiro porto 

C - tamanho do segundo porto 

D - tamanho do terceiro porto 

F$ - representa o local exato onde você deve atracar 

B$ - primeiro porto 

C$ - segundo porto 

D$ - terceiro porto 

E - posição inicial do barco 

Z - variável contadora da movimentação do barco 
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ambulância 


INSTRUÇÕES 

Neste jogo você está dirigindo uma ambulância e deve recolher os feri¬ 
dos que estão espalhados pelas ruas deixando um sinal de perigo no local. 

Toda vez que você recolher todos os feridos, mudará de bairro, e en¬ 
contrará mais feridos. Cuidado, conforme você mudar de bairro o número 
de sinais de perigo aumenta. 

Como você só atende um bairro por vez, se você tentar passar de um 
para outro você perderá uma ambulância. Você só tem 5 ambulâncias para 
salvar o maior número possível de feridos. 
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Para movimentar a ambulância use as teclas: 

5 - para esquerda; 

6 - para baixo; 

7 * para cima; 

8 - para direita. 

Representações: 
limite do bairro = CHR$ (128) 
sinal de perigo = CHR$ (8) 
ferido - I 

ambulância = 0 


10 CLS 
20 SLÜU 
30 LET H =0 
40 LET L =5 
50 LET “5=0 
60 LET B$=“8“ 

70 PRINT PT 20,2;" PONT OS =0";T9 
-T cr • "üh r- o r-, * 1 • u{ 


í_ : jl w i r». i—r-. k-- i— — ,i , * 

88 PRINT RT 21,0;" 



• i 


90 FOR Z =0 TO 19 
100 PRINT RT 21,0; TRB 31; "S 


110 SCROLL 

130 PRINtYt 

U0 FOR 2 = 1 TO 10 ' 

150 PRINT RT INT (RND*19)+2, INT 
(RND *30) +1; "l" 

160 Kl EXT Z 

170 FOR Z = 1 TO 10 

180 PRINT RT INT (RND*19)+2,INT 

í RND*30) +1; “I" 

190 NEXT Z 
200 LET N =0 
210 LET R =10 
220 "LET 6 = 15 

230 PRINT RT R,ts; „ __ 

240:LET N =PEEK (PEEK 16393+256* 
PEEK 16399) 

250 IF MO0 THEN GOTO 890 

260 PRINT RT H,B;"0".;RT R, B; ” ” 

270 LET fi$=INKEY$ 

280 IF THEN LET B,$=fl$ 

290 IF R$ = ‘"‘ THEN' LET fi$=B$ 
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300 LET R=R+ (fi$ = "6‘ : AND fl<21)-( 
R$= ,, 7‘' RND fl>0) 

310 LET B =B + í fi $ = “ 3 ,a RND B<31)-( 
fl$ = ”5" RND B >0) 

320 GOTO 230 

330 LET L=L-1 

340 PRINT RT fl , B ; “S ,: 

350 IF L =0 THEN GOTO 490 
360 PRINT PT 21,5; ”BS 
";CHR$ ÍL+156) 


3 70 

IF 

M=3 THEN PRINT PT P, 

B; 15 

3 3 0 

"H»* 

IF 

H > =123 THEN 

PRINT PT 

P, 

390 

IF 

P$ = ,, 5" THEN 

LET B $ = M 

o • • 

L. 1 

400 

IF 

h$ = ,, 3" THEN 

LET B $ = M 

cr ** 

. i 

410 

IF 

9$ = " 6 ** THEN 

LET B$= M 

*7 *» 

t 

420 

tf 

P$= >,, 7 M THEN 

LET 5$=“ 

6" 


430 GOTO 270 

440 PRINT PT 9,7;"BAIRROS 50C0R 
RIDOS = 11 S /1000 
450 FOR Z=0 TO 75 
460 NEXT Z 

470 PRINT PT 9,B; W 5 ; PT 9,7; 11 

ir 

430 GOTO 140. 

490 LET 0$ = "FIM ; DE JOGO 15 

510 FOR 5=1 TO 4 ~ 

520 NEXT D 

530 PRINT PT 10,C+S;P$(C) 

540 NEXT C 
550 FOR Z=0 TO 21 
560 IF S > =H THEN PRINT PT Z.0;" 


570 IF 5 <H THEN SCROLL 
530 NEXT Z 

590 IF 5 >H THEN LET H=S 
600 IF 5 < H THEN GOTO 730 
610 PRINT PT 7,11; "PPRRBENS 1 ’ ; TP 
B 5; "UOCE BPTEU O RECORDE“;T PB 
1; n DE HOJE";TPB 6; "ENTRE COM O 
EU NOME” 

620 LET C$ = 5 ‘ 

630 LET M$=”* ! 

640 INPUT T$ 

650 LET C$=C$+STR$ H 
660 FOR Y = 1 TO LEN C$ 

670 LET M$=M$+CHR$ ÍCODE C$ÍYH 

1 630 NEXT Y 
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690 FOR Z=0 TO 21 
700 SCRÜLL 
710 NEXT Z 
720 GOTO 770 

730 PRINT RT 5,3;"SEUS PONTOS^' 

740 PRINT RT 9.3; "RECORDE = '*C$ 

750 FOR Z=0 TO 5 

760 NEXT Z __ 


; TI $ 


770 PRINT RT 9,8.; 

730 FOR Z=0 TO 5 
“7Q0 NEXT Z 

*800 PRINT • M FEITO POR ‘*.;T$;RT 21 
, 0; “DESEJR UüGRR NGURMENTE ? i'o/ 
N) 

310 IF INKEY$=“S“ THEN GOTO 340 
320 IF INKEY$s"N" THEN GOTO 360 
330 GOTO 740 
340 CL5 
350 GOTO 40 

360 CL5 _ 

370 PRINT RT 10,10; 

330 5T0P 

390 IF M =46 THEN GO SUB 940 
900 IF M > =123 OR M=3 THEN GOTO 

330 ■ 

910 PRINT RT 

920 IF N = 10 THEN GOTO 440 

930 GOTO 260 

940 LET N=N+1 ■ _ 

950 PRINT RT R , B; 

960 LnT o=S+100 
Q70 PRINT hT 0,9; 5 
930 RETURN 

990 SRUE "RHBULRNCIR” 

1000 RUN 
1010 STOP 


EXPLICAÇÃO 

1? Parte - iniciação (linha 10 a 60) 

linha 10 - Limpa todo o conteúdo da tela. 
linha 20 - Passa o computador para o modo SLOW. 

linha 30 - Iguala a variável H a zero. A variável H guardará o valor do re¬ 
corde. 

linha 40 - Iguala a variável S a zero. A variável S guardará o valor dos seus 
pontos. 
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linha 50 - Iguala a variável L a cinco. A variável L guardará o número de am¬ 
bulâncias que você tem. 

linha 60 - A variável B$ é igualada à direção inicial da ambulância, no caso, 
para a direita. 

2? Parte — Impressão da Tela (linha 70 a 190) 

linha 70 - Imprime na posição (2,20) a palavra PONTOS na mesma linha, 
mas na posição (15,20) é impressa a palavra RECORDE e o seu 
valor logo ao lado, a variável H. 

linha 80 - Imprime na posição (0,21) uma linha com 32 espaços inversos, 
linha 90 - Inicia um LOOP de 20 voltas. 

linha 100 - Imprime nas posições (0, 21) e (31,21) espaços inversos, 
linha 110- Realiza um SCROLL. O SCROLL consiste na subida de cada 
uma das linhas da tela. Por exemplo, o conteúdo da linha 21 pas¬ 
sa para linha 20, o da linha 20 para linha 19, etc. 
linha 120 - Finaliza o LOOP. 

linha 130- Imprime na posição (0,21) uma linha com 32 espaços inversos, 
linha 140 - Inicia um LOOP de 10 voltas. 

linha 150- Imprime um sinal de perigo em uma posição aleatória de tela 
que pode variar da seguinte maneira (2 até 20,1 até 30). 
linha 160 - Finaliza o LOOP. 
linha 170 - Inicia outro LOOP de 10 voltas. 

linha 180- Imprime um ferido em uma posição aleatória da tela que pode 
variar da seguinte maneira (2 até 20,1 até 30). 
linha 190- Finaliza o LOOP. 

3?Parte — Verificação da Posição (linha 200 a 250) 

linha 200 - Iguala a variável N a zero. A variável N guardará o número de fe¬ 
ridos já recolhidos. 

linha 210 - Iguala a variável A a dez. A variável A guardará a linha na tela que 
sua ambulância ocupa. 

linha 220- Iguala a variável B a quinze. A variável B guardará a coluna na 
tela que sua ambulância ocupa. 

linha 230- Desloca uma espécie de cursor invisível para a posição (B,A). 
linha 240- Utiliza a variável do sistema ,POSPR para saber qual o caractere 
que ocupa a posição citada na linha 230 e coloca o código deste 
caractere na variável M. 

linha 250 - Verifica se a variável M é diferente de zero, se for o programa sal¬ 
ta para linha 890, caso contrário o programa continua. 
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4? Parte — Direção da ambulância (linha 260 a 320) 

linha 260 - Imprime na posição (B,A) a letra O, que representa a ambulância, 
logo depois imprime em cima da letra O um espaço em branco. 
Isto é feito para que exista um efeito "piscante" na tela. 
linha 270 - Iguala a variável A$ a tecla pressionada. Por exemplo se você 
pressionou a tecla '5' a variável A$ será igual a '5\ Se você não 
pressionar nenhuma tecla a variável A$ será vazia, 
linha 280 - Verifica se alguma tecla foi pressionada, se foi esta tecla que já 
está armazenada em A$ é passada para B$, caso contrário, o pro¬ 
grama continua. 

linha 290 - Caso nenhuma tecla tenha sido pressionada o valor da variável 
B$ é passado para a variável A$. isto acontece, porque mesmo 
que você não pressione nenhuma tecla, a ambulância se movi¬ 
mentará na direção da última tecla pressionada. Por exemplo, 
se você pressionar a tecla 6 a ambulância começará a descer até 
que você pressione outra tecla. 

linha 300 - Dependendo da tecla pressionada, esta linha altera o valor da li¬ 
nha que sua ambulância ocupa, isto é feito através de operações 
lógicas. Veja Modificação 6, no capítulo 2. 
linha 310 - Dependendo da tecla pressionada esta linha altera o valor da co¬ 
luna que sua ambulância ocupa, isto é feito através de operações 
lógicas. 

linha 320 - Manda o programa para a linha 230. 

5?Parte — Batida da Ambulância (linha 330 a 430) 

linha 330 - Diminui de um o valor da variável L. 
linha 340 - Imprime na posição (B,A) a letra O em vídeo inverso, 
linha 350 - Se suas ambulâncias tiverem acabado o programa vai para linha 
490, caso contrário o programa continua, 
linha 360- Imprime na posição (8,21) a palavra AMBULÂNCIA =, em vídeo 
inverso e logo ao lado imprime o número de ambulâncias que você 
ainda tem. 

linha 370 - Se você bateu em um sinal de perigo é impresso na posição (B,A) 
um espaço em branco, caso contrário, o programa continua, 
linha 380 - Se você bateu nos limites do bairro, este limite é redesenhado, 
imprimindo-se na posição (B,A) um espaço inverso, 
linha 390 Estas linhas irão inverter o sentido da sua ambulância após a ba- 
a 420 - tida. Por exemplo, se você vinha para a esquerda e bateu, agora 
sua ambulância irá andar para a direita. 


linha 430 - Manda o programa para linha 270. 

6? Parte — Número de bairros socorridos (linha 440 a 480) 

linha 440 - Imprime na posição (7,9) a mensagem 'BAIRROS SOCORRI¬ 
DOS' e logo ao lado o número de bairros 'socorridos, que é dado 
pela expressão S/1000. 

linha 450 - Inicia um LOOP dé 76 voltas. Este LOOP é usado para dar uma 
pausa. 

linha 460 - Finaliza o LOOP. 

linha 470 - Imprime na posição (B,A) um espaço em branco, e imprime na 
posição (7,9) vinte e um espaços em branco. 

linha 480 - Manda o programa para a linha 140. 

7? Parte — Impressão da palavra FIM DE JOGO (linha 490 a 540) 

linha 490 - Iguala a variável A$ à palavra FIM DE JOGO. 

linha 500- Inicia um LOOP de 11 voltas, no qual a variável contadora é a 
variável C. 

linha 510 - Inicia outro LOOP, mas este LOOP é usado apenas para dar uma 
pausa. 

linha 520 - Finaliza o LOOP da pausa. 

linha 530 - Imprime começando na posição (9,10) a palavra FIM DE JOGO, 
letra por letra. 

linha 540 - Finaliza o LOOP principal. 

8a Parte - Quebra do RECORDE (linha 550 a 640) 


linha 550 - 
linha 560 - 


linha 570- 

linha 580 - 
linha 590 - 

linha 600 - 
linha 610 - 

linha 620 - 


inicia um LOOP de 21 voltas. 

Verifica se seus pontos são maiores que o recorde. Se for o com¬ 
putador imprime na posição (0,Z) 32 espaços inversos, caso con¬ 
trário, o programa continua. 

Caso os seus pontos sejam menor que o recorde é realizado um 
SCROLL, caso contrário, o programa continua. 

Finaliza o LOOP. 

Caso você tenha batido o recorde a variável H irá ter o mesmo va¬ 
lor da variável S. 

Se você não bateu o recorde o programa vai para linha 730. 
Imprime a mensagem "PARABÉNS VOCÊ BATEU O RECOR¬ 
DE DE HOJE ENTRE COM SEU NOME" no centro da teia. 
Iguala a variável C$ a uma string vazia. A variável C$ irá guardar 
o recorde em vídeo normal. 
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linha 630 - Iguala a variável M$ a uma string vazia. A variável M$ irá guardar 
o recorde em vídeo inverso. 

linha 640- Espera você digitar o seu nome e NEW LINE. O seu nome será 
guardado na variável T$. 

9? Parte — Inversão do Recorde (linha 650 a 720) 

linha 650 - Iguala a variável C$ ao recorde H. A função STR$ faz o seguin¬ 
te: ela transforma o conteúdo da variável H que é numérico em 
uma variável alfanumérica, no caso C$. 
linha 660 - Inicia um LOOP que terá tantas voltas quanto for o tamanho da 
variável C$. A função LEN dá o tamanho de uma certa variável 
alfanumérica no caso C$. 

linha 670- Armazena na variável alfanumérica M$ o valor do recorde, mas 
em vídeo inverso. Isto é feito somando-se 128 ao código do re¬ 
corde em vídeo normal, 
linha 680 - Finaliza o LOOP. 
linha 690 - Inicia um LOOP de 22 voltas, 
linha 700 - Realiza um SCROLL. 
linha 710- Finaliza o LOOP. 
linha 720 - Manda o programa para a linha 770. 

10? Parte — Impressão dos pontos e recorde (linha 730 a 790) 

linha 730 - Imprime na posição (8, 5) a mensagem SEUS PONTOS =. Logo, 
ao lado é impressa a variável S que armazena seus pontos, 
linha 740 - Imprime na posição (8, 9) a palavra RECORDE =. E bem ao lado 
o valor do recorde em vídeo normal (variável C$). 

linha 750 - Inicia um LOOP de 6 voltas para dar uma pausa, 
linha 760 - Finaliza o LOOP. 

linha 770- Imprime na posição (8, 9) a palavra RECORDE = em vídeo in¬ 
verso, logo ao lado é impresso o valor do recorde em vídeo in¬ 
verso (variável M% 
verso (variável M$). 

linha 780 - Inicia um LOOP de 6 voltas para dar uma pausa, 
linha 790 - Finaliza o LOOP. 

11? Parte — Finalização (linha 800 a 880) 

linha 800 - Imprime a mensagem FEITO POR, e o nome de quem fez o re¬ 
corde, este nome está armazenado na variável T$. Imprime na 
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posição (0, 21) a mensagem DESEJA JOGAR NOVAMENTE? 
(S/N). 

linha 810 - Se você pressionar a letra 'S' o programa irá para linha 840. 

linha 820 - Se você pressionar a letra 'N' o programa irá para linha 860. 

linha 830 - Manda o programa para linha 810. 

linha 840 - Limpa todo o conteúdo da tela. 

linha 850 - Manda o programa para linha 40. 

linha 860 - Limpa o conteúdo da tela. 

linha 870 - Imprime na posição (10,10) a palavra FIM em vídeo inverso, 
linha 880 - Pára o programa. 

12? Parte — Checa onde você está (linha 890 a 980) 

linha 890 - A variável M contém o código do caractere que está na posição 
(B, A). Se M for igual a 46 o programa vai para a linha 940. 
linha 900 - Se a variável M for maior ou igual a 128 ou for igual a 8 o progra¬ 
ma vai para linha 330. 

linha 910 - Imprime na posição (B, A) o caractere 8 que representa um sinal 
de perigo. 

linha 920 ** N é a variável que armazena o número de feridos já recolhidos. 

Se N for igual a 10 o programa vai para a linha 440. 
linha 930 - Manda o programa para linha 260. 
linha 940 - Soma um a variável N. 

linha 950 - Imprime na posição (B, A) a letra I em vídeo inverso, 
linha 960 - Soma 100 a variável S que armazena os seus pontos, 
linha 970 - Imprime na posição (9, 0) a Variável S. 
linha 980 - Retorna ao programa principal. 

13? Parte — Auto-Start (linha 990 a 1010) 

linha 990 - Armazena o programa em fita com o nome de AMBULÂNCIA, 
linha 1000 - Roda o programa, 
linha 1010 - Pára o programa. 

MODIFICAÇÕES 

Modificação 1 

Você pode alterar o número de ambulâncias no estabelecimento. De¬ 
pendendo deste número você poderá fazer mais ou menos pontos. Para fazer 
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isto basta trocar o número que a variável L assume na linha 50. Se você colo¬ 
car: 

50 LET L =3 

você poderá bater a ambulância três vezes. 

Modificação 2 

Você pode modificar o número de sinais de perigo que serão colocados 
no início do jogo. Isto é feito mudando o número de vezes que a linha 140 é 
executada. Para ter mais sinais de perigo basta alterar a linha 140 para: 


40 POR 


Modificação 3 

Você também pode alterar a direção inicial que a ambulância segue. 
Essa direção é definida pela linha 60 e basta você trocar o número que está 
entre aspas para 5, 6 ou 7. 


QUADRO DAS VARIÁVEIS PRINCIPAIS DO PROGRAMA 


H - valor do recorde 

S - valor dos seus pontos 

L - número de ambulâncias que você tem 

B$ - direção inicial da ambulância 

N - número de feridos recolhidos 

A - sua linha na tela 

B - sua coluna na tela 

M - código do caractere que ocupa a posição (B, A) 

A$ - direção da ambulância durante o jogo 

C$ - recorde em vídeo normal 

M$ - recorde em vídeo inverso 

Z, X, C, D, Y, J - variáveis contadoras de LOOPs. 
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escavações 


INSTRUÇÕES 

Você está na Amazônia após ter encontrado um mapa de um tesouro 
do século X exatamente no local marcado por um X no mapa. 

Durante muitos meses você fez escavações numa mina até encontrar 
o incrível tesouro: uma esmeralda pesando cerca de meio quilograma. Quando 
você já está voltando em direção à entrada, ocorre um terremoto que o so¬ 
terra. 

Este não é o seu maior problema, pois você tem material para fazer uma 
escavação até a saída. O maior problema é que o terremoto libertou um mons¬ 
tro pré-histórico que guardava a esmeralda. 

Seu material só consegue escavar un\ tipo de pedra, e na mina existem 
dois tipos de pedra. 

Tome cuidado porque essas pedras são iguais externamenteI 
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Para movimentar-se use os seguintes comandos: 

5 - escava para a esquerda; 

6 - escava para trás; 

7 - escava para frente; 

8 - escava para a direita. 

Você será representado pela letra 0 # o monstro pela letra X e as pedras 
serão representadas pelo caractere número 8. 


L DE 
30 
40 
RQ 

60 

70 

60 

90 

100 


FR ST 
PRINT 11 

, , 11 ENTRE COM 0 NIUE 
DIFIQULDRDE (DE 1 fi. 5) ÍS 
INPUT L 

IF L <1 OR L >5 THEN . GOTO 30 
CL 5 

D X M h k 1 y , 1 y j 
LET R=10 
LET U=19 
LET C=0 
LET H$ = “ 




110 PRINT hT 20, 0;R$;RT 0,0;R$ 
120 FOR N=1 TO 19 

o rs nnTMT 11 
J. •-« \Ú r* K i ! •< í 


í40 NEXT N 
150 FOR N=i TO 100 
ISO LET Y=INT ÍRND*19)+1 
1-70 LET X = INT ÍRND*19)+1 
180 IF J[Y=9 OR Y = 10) RND (X=l 
H X=19) íHtN GOTO 160 
190 LET h(Y , X 3 =1 
200 NEXT N 
210 LET Y = 10 
220 LET X=1 
230 SLOU 

240 PRINT RT 10.20; '* " 

250 FOR N = 1 TO õ-L' 

260 L tzT C = C +1 
270 LET Z=X 
280 LET T=Y 

c'y0 LEi Y = Y -f i ±NKtY $ = " 6 " AND V - 
S S - ( i N K t Y È = " 7 ‘ 1 Pi H D Y rl 'i 

300 ' LET X =X + í INKEY $ = " 3 " Pi ND X 
9) -(INKEY $ = "5” AND X >1) 

310 IF Y = 10 AND X = 19 THEN GOTO 
450 

320 IF ATV.Xi=1 THEN LET X=Z 
330 IF A(Y,X)=1 THEN LET Y=T 
340 PRINT AT T.Z;". “;AT Y,X:"C 
350 NEXT N 
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360 LET E=R 
370 LET S=U 
380 LET U=U + <U 
390 LET R=R+ (R 
400 IF A (R .. U) = 
410 IF H íH,U) = 
420 PRINT PT t 
430 IF R=Y AND 


1 THEN LET R=E 
1 THEN LET U=S 
,8.;" "PT R, U 
U = X T H t N G 0 T 0 


440 '7HT0 250 

450 PRINT AT 10,19,“ 0“,AT 1 
; “yOCE" ; AT 3.23; “tSCAPOU"; AT 
5;“EM";ÁT 7.25;Ü;AT 9,22;"MOU 
NTT OS" 

4F.0 GOTO 480 

470 PR INT AT 3,25" yOCE “ AT 
5;"FOI”;AT 7.23;"CAPTURADO" 
480 PRINT At 21,0;"DESEJA JO 
N O y A M ENT E ? 1 5 / N j “ 

490 IF INKEY $ = " S " THEN GOTO 
500- IF INKEY$ = “N" THEN GOTO 
510 GOTO 490 
520 CLS 

530 PRINT AT 10,10.;" 

540 ST O P 
550 CLS 
560 RUN 

570 SRUE "ESCAUACOEg" 

• Rftfl Rl IN 
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EXPLICAÇÃO 


1? Parte — Inicialização (linha 10 a 100) 


linha 10 - 
linha 20 - 

linha 30 - 

linha 40 - 

linha 50 - 
linha 60 - 
linha 70 - 

linha 80 - 

linha 90 - 

linha 100 - 


Passa o computador para o modo FAST. 

Imprime no início do vídeo a palavra ESCAVAÇÕES e duas linhas 
abaixo ENTRE COM O NÍVEL DE DIFICULDADE (DE 1 A 5). 
Espera que você digite o nível de dificuldade e NEW LINE e co¬ 
loca este valor na variável L. 

Verifica se a variável L é menor que 1 ou maior que 5. Caso isto 
aconteça o programa volta para a linha 30, caso contrário, o pro¬ 
grama continua. 

Limpa todo o conteúdo da tela. 

Dimensiona uma matriz quadrada A(19 x 19). 

Iguala a variável Ra 10. A variável R guardará a linha que o mons¬ 
tro ocupa na tela. 

Iguala a variável V a 19. A variável V guardará a coluna que o 
monstro ocupa na tela. 

Iguala a variável C a zero. A variável C guardará o número de mo¬ 
vimento já executado. 

Iguala a variável A$ a 20 espaços inversos. A variável A$ será usa¬ 
da para imprimir as margens inferior e superior da mina. 


2? Parte — Impressão da tela (linha 110 a 140) 

linha 110 - Imprime naSsposições (0, 20) e (0, 0) a variável A$ (margens), 
linha 120 - Inicia um LOOP de 19 voltas. 

linha 130- Imprime o centro do labirinto que é composto de 1 espaço in¬ 
verso seguido de 18 caracteres número 8 e mais 1 espaço inverso, 
linha 140 - Finaliza o LOOP. 


3? Parte — Colocação dos obstáculos e posição inicial (linha 150 a 220) 


linha 150- 
linha 160 - 
linha 170 - 
linha 180 - 


linha 190 - 


Inicia um LOOP de 100 voltas. 

Escolhe um valor aleatório para Y variando entre 1 e 19. 

Escolhe um valor aleatório para X variando entre 1 e 19. 

Verifica se Y é igual a 9 ou 10 e se X é igual a 1 ou 19. Isto é fei¬ 
to para que não seja colocado um obstáculo na sua posição ini¬ 
cial. 

Iguala a variável A(Y, X) a 1, indicando que naquele local da ma¬ 
triz existe um obstáculo. 


linha 200 - Finaliza o LOOP. 

linha 210 - Iguala a variável Y a 10. A variável Y guardará a coluna que você 
ocupa na tela. 

linha 220 - Iguala a variável X a 1. A variável X guardará a linha que você 
ocupa na tela. 


4? Parte — Sua Movimentação (linha 230 a 350) 


linha 230 - 
linha 240 - 

linha 250 - 


linha 260 - 
linha 270 - 
linha 280 - 


linha 290 - 


linha 300- 


linha 310 - 
linha 320 - 


Unha 330 - 


Passa o computador para o modo SLOW. 

Imprime na posição (20, 10) um espaço em branco que indica a 
saída. 

Inicia um LOOP que vai ter o número de voltas variando depen¬ 
dendo do nível de dificuldade. Por exemplo se o nível de dificul¬ 
dade for 2, o LOOP terá 4 voltas, isto quer dizer que enquanto 
você dá 4 passos o monstro dá apenas um. 

Soma 1 a variável C indicando que você fez mais um movimento. 
Iguala a variável Z a variável X. 

Iguala a variável T a variável Y. As linhas 270 e 280 existem por¬ 
que, caso você faça algum movimento ilegal, a letra O que repre¬ 
senta você será impressa na última posição legal que agora é a 
posição (T, Z). 

Esta linha verifica se você está pressionando a tecla 6, o compu¬ 
tador soma 1 a variável Y, se você estiver pressionando a tecla 7 
o computador subtrai 1 da variável Y, se você não pressionar ne¬ 
nhuma destas duas teclas o valor da variável Y não se altera. 

Esta linha verifica se você está pressionando a tecla 8. Se você es¬ 
tiver, o computador soma 1 a variável X, se você estiver pressio¬ 
nando a tecla 5 o computador subtrai 1 da variável X. Caso você 
não pressione nenhuma destas duas teclas o valor de X não se al¬ 
tera. 

Se a variável X for igual a 10 e Y for igual a 10 isto indica que 
você conseguiu sair da mina e o programa vai para a linha 450. 

Se a posição (Y, X) na matriz A for igual a 1 isto significa que 
existe um obstáculo, por isto a variável Y é igualada a última po¬ 
sição legal que está armazenada na variável T. 

Se a posição (Y, X) na matriz A for igual a 1, isto significa que 
existe um obstáculo, por isto a variável X é igualada a última po¬ 
sição legal que está armazenada na variável Z. 
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linha 340- Imprime na posição (Z, T) um espaço em branco e na posição 
(Y, X) a letra O. 

linha 350 - Finaliza o LOOP. 

5? Parte — Movimentação do Monstro (linha 360 a 440) 

linha 360 - Iguala a variável E a variável R. 

linha 370 - Iguala a variável S a variável V. As linhas 360 e 370 fazem, caso 
o monstro faça um movimento ilegal, que seja impresso na úl¬ 
tima posição legal que agora é (S, E). 

linha 380 - Compara a coluna que o monstro ocupa com a sua. Se a do mons¬ 
tro for maior, é subtraído 1 da variável V;se a coluna do monstro 
for menor é somado 1 a variável V; se for igual o valor de V não 
se altera. 

linha 390 - Compara a linha que o monstro ocupa com a sua. Se a do mons¬ 
tro for maior é subtraído 1 da variável R; se a linha do monstro 
for menor é somado 1 a variável R; se as linhas forem iguais a 
variável R não se altera. 

linha 400- Se a posição (R, V) na matriz A for igual a 1 isto significa que 
existe um obstáculo, por isto a variável R é igualada a última po¬ 
sição legal que está armazenada na variável E. 

linha 410 - Se a posição (R, V) for igual a 1, isto significa que existe um obs¬ 
táculo, por isto a variável V é igualada a última posição legal ar¬ 
mazenada na variável S. 

linha 420- Imprime na posição (S, E) um espaço em branco e na posição 
(V, R) a letra X. 

linha 430 - Verifica se R é igual a Y e se V é igual a X, se estas condições fo¬ 
rem satisfeitas significa que você foi capturado pelo monstro e o 
programa vai para a linha 470, caso contrário, o programa conti¬ 
nua. 

linha 440 - Manda o programa para a linha 250. 

6? Parte — Escapatória (linha 450 e 460) 

linha 450- Imprime na posição (19, 10) um espaço em branco seguido da 
letra O; na posição (24, 1) a palavra VOCÊ; na posição (23, 3) 
a palavra ESCAPOU; na posição (25, 5) a palavra EM; na posi¬ 
ção (25, 7) á variável C que guarda o número de movimentos 
que você fez e na posição (22, 9) a palavra MOVIMENTOS. 

linha 460 - Manda o programa para a linha 480. 


7? Parte — Capturado (linha 470) 

linha 470 - Imprime na posição (25, 3) a palavra VOCÊ, na posição (25, 5) 
a palavra FOI e na posição (23, 7) a palavra CAPTURADO. 


8? Parte — Finalização (linha 480 a 560) 


linha 480 - Imprime na posição (0, 21) a mensagem DESEJA JOGAR NOVA¬ 
MENTE? (S/N). 

linha 490 - Se você pressionar a tecla S o programa vai para a linha 550. 

linha 500 - Se você pressionar a tecla N o programa vai para a linha 520. 

linha 510 - Manda o programa para a linha 490. 

linha 520 - Limpa o conteúdo da tecla. 

linha 530 - Imprime na posição (10,10) a palavra FIM. 

linha 540 - Pára o programa. 

linha 550 - Limpa o conteúdo da teia. 

linha 560- Roda o programa. 


9? Parte — Auto-Start (linha 570 a 580) 


linha 570 - Armazena o programa em fita com o nome de ESCAVAÇÕES, 
linha 580- Roda o programa. 


MODIFICAÇÕES 

Modificação 1 

Se você incluir a linha: 


195 PRINT hT 


CHR$ (126) 


você irá tornar as pedras que você não consegue escavar diferentes das que 
você consegue. 


Modificação 2 

Você pode alterar o número de pedras que você não pode escavar e que 
serão postas na mina. Para fazer isto basta alterar a linha 150, para que ela 
fique da seguinte maneira: 


150 FOR N = 1 TO n? de pedras desejadas 
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Modificação 3 

Você pode acrescentar um comando ao jogo. Esse comando levaria você 
até a posição inicial caso você aperte a tecla 0 ou o botão de tiro do Joystick. 
Para isto você deve acrescentar as linhas: 

305 IF INKEY$ = 4 ' 0 " THEN LET V =10 

306 IF INKEY*= ,, 0 M THEN LET X = i 

QUADRO DAS VARIÁVEIS PRINCIPAIS DO PROGRAMA 

L- nível de dificuldade 
A - matriz que simula a tela 
R - linha do monstro na tela 

V - coluna do monstro na tela 

C - número de movimentos executados 
A$ - margens do labirinto 

Y - coluna que você ocupa na tela 
X - linha que você ocupa na tela 
Z - variável de transição 

T - variável de transição 
E - variável de transição 
S - variável de transição 
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tiro ao alvo 
















































































































































































































































5 

tiro ao alvo 


INSTRUÇÕES 

Você acaba de entrar em um parque de diversões, muito parecido com 
aqueles que aparecem na televisão. A primeira barraca que você avista /ião 
é senão, nada mais, nada menos, que a barraca do tiro ao alvo. 

Nesta barraca existem 16 patinhos nadando de um lado para o outro. 

Você como não pertence a nenhuma sociedade protetora de animais, 
empenha uma espingarda que está em cima do balcão e começa a atirar. 

O seu objetivo é òíaro: ganhar a bonequinha que é dada a quem acertar 
todos os patinhos em 16 tiros. 

Comando: 

0 - dispara a espingarda. 

Representação: 

pato = CHR$ (134) 


10 CLS 
20 5 Lü U 
30 LET 3=0 
4-0 LtT D =0 
"50 LET fi$ = •'*« * 
'» '» *» \ ‘« \ 

5Q PRINT " 


■ ■■■■■as 

< i ■ ■ i i i i i 


[•■HMaORBl'' : RT 3,14 ; "AT IRE" 

70 PRINT HT'21,14;"EBMflT 20, 
14.;'"M";RT 19,15; 


I * Pft I l 


30 PRINT PT 100 ; R$ 


0 


90 

IF INKEY $ = ”0“ 

THEN G 

ÜSUB 13 

100 

lET h$=h$(2 TO 

! ) +P$ i 

1 .* 

110 

IF P$ = M 




5 THEN 

GOTO 2 

4-0 

■1 tV. 

^ 

»_t i »_■ 



•1 

M‘ 

IF H$ í 16 ) < ;• 11 

THEN 

LET 0=1 

14*0 

FOR P = 17 TO 10 

5TEP 

- ± 

150 

II t : 

PRINT hT h,15; 

; PT 

p +1.! 1 

160 

NEXT H 
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170 J> D = 1 THtN LcT H$ » 16 ) 
130 IF D = I THEN PRINT PT 3 
PCizRT ÜU 1 

190 IF D =0 THEN PRINT PT 3 
ERROU 

200 hkINi hT IO i 0 ;P$ 

210 LET D =0 

■- •- rs • ™~r -r — ■- í -i 

£: cl vl' s— u. i ~r _i_ 

230 RETURN 
240 CL 5 

250 PRINT UüCfc PCERTOU Ti 
Ü 5 PPTINHÜ 5 EH !; ; 5 ; “ TIROS . ’ 
260 PRINT PT 21 , 0 ;"DESEJO , 

k i t“i i i lj f-i w. >. í i cr ■“ *zr .*>.}■) ! * 

f ‘-Í U vHi !LH i i— : .* 


J y íjn j~| Ri 


270 IF INKEY $ = 88 5 " THEN RUN 


230 IF INKEY $ = "NTHEN GOTO 

i 4 ":” fi •' ”7 

c ? v W l —* J 1 £ ;* SL* 

300. CL5 

10 HKlN ! H ! XO i 10 i 

320 STOP 

330 5 HUü : TIRO RO PLUS” 

■«r* 4 K L* N 


EXPLICAÇÃO 

1? Parte — Inicialização (linha 10 a 50) 

linha 10 - Limpa todo o conteúdo da tela. 

linha 20 - Passa o computador para p modo S LO W. 

linha 30 - Iguala a variável S a zero. A variável S guardará o número de tiros 
que você deu. 

linha 40 - iguala a variável D a zero. A variável D irá dizer se você acertou 
ou errou o alvo. 

linha 50 - iguala a variável A$ a 16 vezes um caractere 134 seguido de um 
espaço em branco. A variável A$ será a representação da linha de 
patos. 

2? Parte — Impressão da tela (linha 60 a 80) 

linha 60 - Imprime no início da tela o título TIRO AO ALVO e depois im¬ 
prime na posição (14, 8) a palavra ATIRE. 

linha 70 - Imprime na posição (14, 21) três "espaços inversos depois im¬ 
prime na posição (20, 14) um caractere 133 seguido de um es¬ 
paço inverso seguido pelo caractere 5. Finalmente é impresso 
um espaço inverso na posição (15, 19). Esta linha desenha sua 
espingarda. 

linha 80 - Imprime na posição (0, 10) a variável A$. 
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3? Parte — Rotação dos Alvos (linha 90 a 120) 

linha 90 - Verifica se você pressionou a tecla 0, se esta condição for verda¬ 
deira, o programa chama a rotina de tiro na linha 130, caso con¬ 
trário, o programa continua. 

linha 100 - Esta linha é que realmente dá o efeito de rotação dos alvos. Ela 
funciona da seguinte maneira: a instrução (2 TO) ignora o primei¬ 
ro caractere da variável A$ mas este caractere é somado no finai 
da mesma variável dando o efeito de rotação, 
linha 110 - Se a variável A$ for constituída apenas de 32 espaços em branco, 
significa que você já acertou todos os patos e o programa vai para 
a linha 240. 

linha 120 - Manda o programa para a linha 80. 

4? Parte — Rotina de Tiro (linha 130 a 230) 

linha 130 - Verifica se a posição 16 da variável A$ é diferente de um espaço 
em branco, o que significa que você atirou e acertou um pato, e 
neste caso a variável A é igualada a 1. 

linha 140 - inicia um LOOP que começa no 17 e acaba np 10. Para fazer um 
LOOP regressivo basta acrescentar a função STEP -1. Esta fun¬ 
ção altera o passo do LOOP. 

linha 150 - Imprime na posição (15, A) um asterisco e logo a seguir imprime 
um espaço em branco na posição (15, A + 1). isto é feito para 
que haja um de tiro. 
linha 160 - Finaliza o LOOP regressivo. 

linha 170 - Se a variável D for igual a 1, a posição da variável A$ (16) é igua¬ 
lada a um espaço em branco. 

linha 180- Se a variável D for igual a 1 é impressa a palavra ACERTOU na 
posição (14, 8). 

linha 190- Se a variável D for igual a zero é impresso na posição (14, 8) a 
palavra ERROU, seguida de dois espaços em branco, 
linha 200 - Imprime na posição (0,10) a variável A$. 
linha 210- Zera a variável D. 
linha 220 - Soma 1 a variável S. 
linha 230 - Retorna ao programa principal. 

5? Parte - Finalização (linha 240 a 320) 
linha 240 - Limpa o conteúdo da tela. 

linha 250- Imprime no começo da tela a mensagem "VOCÊ ACERTOU 
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TODOS OS PATINHOS EM", imprime também o valor da variá¬ 
vel S e logo depois a palavra TI ROS. 

linha 260- Imprime na posição (0, 21) a mensagem "DESEJA JOGAR NO¬ 
VAMENTE" ? (S/N). 

linha 270 - Se você pressionar a tecla S o programa roda novamente, 
linha 280 - Se você pressionar a tecla N o programa vai para a linha 300. 
linha 290 - Manda o programa para a linha 270. 
linha 300 - Limpa o conteúdo da tela. 

linha 310 - Imprime na posição (10, 10) a palavra FIM em vídeo inverso, 
linha 320 - Pára o programa. 

6? Parte — Auto-Start (linha 330 a 340) 

linha 330 - Armazena o programa em fita com o nome de "TI RO AO ALVO", 
linha 340 - Roda o programa. 

MODIFICAÇÕES 

Modificação 1 

Você pode alterar a tecla que dispara o tiro, alterando a linha 90. Se 
você alterar a linha 90 para: 

90 IF INKEY$ =F*' THEN GOSUB 13 


a espingarda atirará quando você pressionar a tecla F. 


Modificação 2 

Você pode modificar o caractere que simula o tiro apenas trocando o 
asterisco da linha 150 pelo caractere desejado. Tente trocá-lo pelo ponto fi¬ 
nal. 


QUADRO DAS VARIÁVEIS PRINCIPAIS DO PROGRAMA 

S - variável contadora de tiros 
D - indicador de acerto do alvo 
A$ - representação dos patos 
A - indicadora da posição do tiro. 


58 


6 






























































6 

prédios 


INSTRUÇÕES 

Neste jogo você é um simples operário de uma construção, mas será 
uma peça extremamente importante na reconstrução de vários prédios, isto 
porque o engenheiro que projetou-os cometeu um erro que obriga-o a refazer 
as estruturas para evitar um terrível acidente. 

A sua missão é a seguinte: você deve arrancar todos os pregos que segu¬ 
ram a estrutura do prédio para que ele seja reconstruído. 

O principal perigo é que os prédios estão sendo construídos no "Morro 
dos Ventos Uivantes" e você precisa tomar cuidado para não ser carregado 
pelo vento. 

. Para ajudá-lo nesta difícil missão você conta com a ajuda de um apare¬ 
lho que mede a intensidade do vento. Enquanto este aparelho registrar uma 
intensidade entre 0 a 7 fique tranquilo, mas quando ele começar a indicar 
8 ou 9 tome muito cuidado e ande sempre na direção oposta a do vento. 

Apenas um lembrete: como todos os prédios, este é constituído de vá¬ 
rios andares e para você mudar de um andar pode usar as escadas ou o eleva¬ 
dor no lado direito do prédio. 

A direção do vento é sempre da sua esquerda para a direita. 

Comandos: 

5 - para a esquerda; 

6 - para baixo; 

7 - para cima; 

8 - para direita; 

ou pelo joystick. 

Representações: 

Você - * 

Prego martelado - . 

Prego arrancado - , 

Escada - : 

Elevador - CHR$ 136 + CHR$ 136 
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74-0 RUN 


EXPLICAÇÕES 

1? Parte — Inicialização (linha 10 a 120) 

linha 10 - Iguala a variável LL a 1. A variável LL guardará de quantos pré¬ 
dios você já arrancou todos os pregos, 
linha 20 - Limpa todo o conteúdo da tela. 
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linha 30 • Iguala a variável DE a zero, A variável DE guardará quantos pre¬ 
gos já foram arrancados. 

linha 40 - Iguala a variável A a 20, A variável A guardará a linha que você 
ocupa na tela. 

linha 50 - Escolhe um valor aleatório para variável B entre 0 e 29. A variá¬ 
vel B guardará a coluna que você ocupa na teia. 

linha 60 - Iguala a variável L$ a 2 caracteres 136. A variável L$éo dese¬ 
nho do elevador. 

linha 70 - Iguala a variável LI a 5. A variável LI guardará a linha que o 
elevador ocupa. 

linha 80 - Iguala a variável L2 a 30. A variável L2 guardará a coluna que o 
elevador ocupa. 

linha 90 - Iguala a variável U a 26. A variável U guardará o caractere que 
será impresso na posição (B, A). O caractere 26 no caso é o *. 

linha 100- Iguala a variável Nal.A variável N guardará quantos andares 
o elevador irá subir ou descer. 

linha 110 - Se for o primeiro prédio do qual você está arrancando pregos a 
variável S é igualada a zero. A variável S guardará o seu salário. 

linha 120 - Escolhe um valor aleatório para a variável W entre 0 e 9. A variá¬ 
vel W guardará a intensidade do vento. 

2? Parte — Impressão do Prédio (linha 130 a 150) 

linha 130 - Esta linha possibilita que o vídeo do seu computador tenha uma 
linha a mais. 

linha 140 - Imprime na posição (14, 22) a variável W. 

linha 150 - Chama a sub-rotina de impressão do prédio na linha 590. 

3? Parte - Verificação do Aparelho de Vento (linha 160 a 210) 

linha 160- A função RND gera um número aleatório entre 0 e 1. Se este 
número for maior que 0,4, então a intensidade do vento é altera¬ 
da, caso contrário, ela continua a mesma. A intensidade do vento 
é alterada da seguinte maneira, pode-se acrescentar 1 ou subtrair 
a da variável W. 

linha 170 - Altera o valor da variável W usando operações lógicas lógicas. Se 
o valor de W for menor que 1 é somado 1, se for maior do que 9 
é subtraído 1. 

linha 180 - Imprime na posição (14, 22) a variável W. 
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linha 190 - Imprime na posição (B, A) o caractere que tem o código igual a 
da variável U e na posição (L2, LI) dois espaços em branco que 
limpa a antiga posição do elevador. 

linha 200 - Se a variável W for igual a 8 é somado 1 a variável B. Isto signifi¬ 
ca que você está sendo carregado pelo vento 1 posição. 

linha 210 - Se a variável W for igual 9 é somado 2 a variável B. Isto significa 
que você foi carregado 2 posições pelo vento. 

4? Parte — Movimento do Elevador (linha 220 a 230) 

linha 220 - Soma N a variável LI se N for igual a 1 o elevador está descendo 
e se N for igual a - 1 o elevador está subindo. 

linha 230 - Imprime na posição (L2, LI) a variável L$. 

5? Parte — Verificação (linha 240 a 260) 

linha 240 - Se a variável U for igual a 136 significa que você está dentro do 

elevador. Se esta condição for verdadeira a variável A deve ser 

igual a LI, lembrando que A é a sua linha na tela e LI é a linha 
do elevador na tela. 

linha 250 - Se a variável LI for igual a 20, isto significa que o elevador che¬ 
gou ao térreo e a variável N deve ser igual a -1 para ele começar 
a subir. 

linha 260 - Se a variável LI for igual a 4, significa que o elevador chegou 

ao último andar e a variável N deve valer 1 para ele começar a 

descer. 

6? Parte — Sua Movimentação (linha 270 a 280) 

linha 270 - Esta linha verifica se você está pressionando a tecla 6. Se você 
estiver, é somado 1 a variável A. Se você estiver pressionando a 
tecla 7 é subtraído 1 da variável A. Se você não pressionar nenhu¬ 
ma das duas teclas o valor da variável A não se altera. 

linha 280 - Esta linha verifica se você está pressionando a tecla 6. Se estiver, 
é somado 1 a variável B. Se você estiver pressionando a tecla 5 
é subtraído 1 da variável B. Se você não pressionar nenhuma 
destas teclas o valor de B não se altera. 

7? Parte — Verificação do seu Movimento (linha 290 a 340) 

linha 290 - Desloca uma espécie de cursor invisível para a posição (B, A). 

linha 300- Utiliza a variável do sistema POSPR para saber qual o caractere 
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que ocupa a posição citada na linha 290 e coloca o código deste 
caractere na variável U. 

linha 310 - Se a variável U for igual a 27 (ponto) são somados tantos cruzei¬ 
ros quantos estiver marcando o aparelho que marca a intensidade 
do vento. 

linha 320- Se a variável U for igual a 27 (ponto) é somado 1 a variável DE. 

linha 340 - Se a variável U for igual a 128 ou a 0 significa que você caiu do 
prédio e o programa vai para a linha 380. 

8? Parte — Impressão e Verificação do Fim do Prédio (linha 350 a 370). 

linha 350- Imprime um* (você). 

linha 360 - Se a variável DE for igual a 82 significa que você arrancou todos 
os pregos deste prédio e o programa vai para a linha 540. 

linha 370 - Manda o programa para a linha 160. 

9? Parte - Fim do Jogo (linha 380 a 450) 


linha 380 - 
linha 390 - 

linha 400 - 

linha 410 - 


linha 420 - 
linha 430 - 
linha 440 - 

linha 450 - 


Imprime na posição (0,21) a letra em vídeo inverso. 

Iguala a variável T a 1. A variável T funcionará como contador de 
quantas letras I na linha 410 serão impressas. 

Inicia um LOOP que começa no número da linha que você ocupa 
até 20. 

Imprime na posição (B, I) um asterisco, na posição (B, I - 1) um 
espaço em branco. Isto dá a impressão que você está caindo do 
prédio. Imprime na posição (T, 21) a letra I em vídeo inverso. 
Soma 1 a variável T. 

Finaliza o LOOP. 

Imprime na posição (10, 20) o desenho * e na posição (10,21) 
a palavra BUUMM em vídeo inverso. 

Imprime na posição (0, 0) a palavra SALÁRIO; na posição (0, 2) 
a frase E DE e na posição (0, 4) o símbolo Cr$ seguido pelo va¬ 
lor da variável S. 


10? Parte — Finalização (linha 460 a 530) 
linha 460 - Tira o efeito da linha 130. 

linha 470- Imprime na posição (0, 21) a mensagem "DESEJA JOGAR NO¬ 
VAMENTE" ? (S/N). 

linha 480 - Se você pressionar a tecla S, o programa roda novamente. 


linha 490 - Se você pressionar a tecla N, o programa vai para a linha 510. 
linha 500 - Manda o programa para a linha 480. 
linha 510- Limpa todo o conteúdo da tela. 

linha 520- Imprime na posição (10, 1Ò) a palavra "FIM" em vídeo inverso, 
linha 530 - Pára o programa. 

11? Parte — Mudança de Prédio (linha 540 a 580) 

linha 540 - Soma 1 a variável LL. 

linha 550 - imprime o prédio no qual você está. 

linha 560 - Inicia um LOOP de 100 voltas. 

linha 570- Finaliza o LOOP. Este LOOP serve apenas para dar uma pausa 
no programa. 

linha 580 - Manda o programa para a linha 20. 

12? Parte — Rotina de Impressão do Prédio (linha 590 a 720) 

Veja Apêndice B 

13? Parte — Auto-Start do Programa (linha 730 a 740) 

linha 730 - Armazena o programa em fita com o nome de PRÉDIOS, 
linha 740 - Roda o programa. 
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MODIFICAÇÕES 

Veja Apêndice B 


QUADRO DAS VARIÁVEIS PRINCIPAIS DO PROGRAMA 

LL - prédios com todos os pregos arrancados 

DE - pregos já arrancados 

A - sua linha na tela 

B - sua coluna na tela 

L$ - representação do elevador 

LI - linha do elevador na tela 

L2 - coluna do elevador na teia 

U - caractere que será impresso na posição (B, A) 

N - andares que o elevador subirá ou descerá 

S - valor do seu salário 

W - intensidade do vento 

T r I, Z - variáveis contadoras de LOOPs. 




ataque 

submarino 
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ataque 

submarino 


INSTRUÇÕES 

Você acaba de entrar em uma batalha naval no meio do Oceano índico, 
você é o comandante de um submarino com um arsenal limitado a 30 tor¬ 
pedos. Com estes 30 torpedos, você tentará destruir o maior número de ini¬ 
migos possível. 

Só que existe um problema com o seu radar: ele só mostra a posição 
dos inimigos durante 2 segundos e durante este tempo você deverá memori¬ 
zar a posição dos mesmos. 

Logo depois será mostrada uma espécie de tabela no seu computador 
de bordo. Você verificará em sua memória a posição dos inimigos e entrará 
com as coordenadas da seguinte forma: 

coluna, linha 
Exemplos: 

Al 

B7 

M9 

Você tem três tipos de inimigos para destruir, os hidro-aviões que valem 
30 pontos, os cruzadores que valem 20, e as fragatas que valem apenas 10 
pontos. O jogo acaba quando acabarem os torpedos do arsenal. 


10 

CLS 




20 

Dir-1 
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Ç17 

t 

30 

LET 
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O 
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120 

LET ü =3 


130 

Lr* LJ C' U t' 5 *«í 0 


140 

L 0 U 


150 

PRUSE 100 


160 

CLS 


170 

ijj u o U 6' 4c!0 


160 

LET G = 30 


190 

PRINT RT 20,0- PLAChR =" ; P 

200 

INPUT B$ 


210 

IF LEN 6$ 0 2 OR C 

QDt 6$ +COC 

E Bí 

(2)>69 THEN GOTO 2 

00 

220 

LET L = C URL B$ (.2) ) 

*2-1 

230 

LET T = CCODE B$(13 

)*2-75 

240 

LET B=fiíL,T) 


250 

IF 6=1 THEN GOTO 

330 

260 

IF 6=2 THEN GOTO 

360 

270 

IF 6=3 THEN GOTO 

390 

260 

PRINT RT L,T;"X" 



290 LET G=G-1 

300 PRINT RT 20>13; "SOBRRM 
l! TORPEDOS ** 

310 IF G = 0 THEN GOTO 690 

320 GOTO 200 

330 LET C=18S 

340 LET U=20 

350 GOTO 500 

360 LET C = 171 

370 LET U = I8 

330 GOTO 600 

390 LET C = 173 

400 LET U = 30 

410 GOTO 500 

420 LET N=1 

430 FOR L = 1 TO- 17 STEP 2 

440 PRINT RT L,0; N 

450 LET N=N+1 

460 NEXT L 

470 LET D=36 

460 FOR T = 1 TO 29 STEP 2 

490 PRINT RT * 0,T;CHR$ D 

500 LET D=D + 1 

510 NEXT T 

520 RETURN 

530 FOR E = 1 TO 10 

540 LET T = INT iRND*14)*2+1 

550 LET L = INT íRND *9j *2 + 1 

560 PRINT RT L,T;CHR$ C 

570 LET RÍL,T)=U 

560 NEXT E 

590 RETURN 

600 PRINT RT L .iTCHR$ C 
610 PRINT RT 21,0;"AFUNDOU 
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R = 14 0 


SOdRRM 


T ORPtDOS 


EXPLICAÇÕES 

1? Parte — Iniciação (linha 10 a 40) 

linha 10 - Limpa o conteúdo da tela. 

linha 20 - Dimensiona uma matriz A de 17 por 29. 
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linha 30 
linha 40 

2? Parte 

linha 50 


linha 60 

linha 70 
linha 80 


linha 90 

linha 100 
linha 110 


linha 120 

linha 130* 
linha 140 - 
linha 150- 
linha 160 - 

3? Parte - 

linha 170 - 
linha 180 - 

linha 190 - 


4? Parte - 
linha 200 - 

linha 210- 
linha 220 - 


- Zera a variável P que contará os seus pontos. 

- Passa o computador para o modo FAST. 

- Impressão dos inimigos (linha 50 a 160) 

- Iguala a variável Ca 168. A variável C guardará o valor do carac¬ 
tere a ser impresso na rotina de impressão, no caso um C em ví¬ 
deo inverso. 

* Iguala a variável V a 1. O número 1 será a representação de um 
cruzador na matriz. 

- Chama a sub-rotina de impressão na linha 530. 

- Iguala a variável C a 171. A variável C guardará o valor do carac¬ 
tere a ser impresso na rotina de impressão, no caso um F em ví¬ 
deo inverso. 

- Iguala a variável V a 2. O número 2 será a representação de uma 
fragata na matriz. 

- Chama a sub-rotina de impressão na linha 530. 

- Iguala a variável C a 173. A variável C guardará o valor do carac¬ 
tere a ser impresso na rotina de impressão, no caso um H em ví¬ 
deo inverso. 

- iguala a variável V a 3. O número 3 representa um hidro-avião na 
matriz. 

■ Chama a sub-rotina de impressão na linha 530. 

Passa o computador para o modo SLOW. 

Dá uma pausa de cerca de 2 segundos. 

Limpa todo o conteúdo da tela. 

Impressão das coordenadas (linha 170 a 190) 

Chama a sub-rotina de impressão das coordenadas na linha 420. 
Iguala a variável G a 30. A variável G guardará o número de tor¬ 
pedos que ainda lhe restam. 

Imprime na posição (0,20) a palavra PLACAR = seguida do valor 
da variável P. 

Entrada das Coordenadas (linha 200 a 280) 

Espera que você entre com as coordenadas e coloca-as na variável 
B$. 

Verifica se a maneira que você entrou com os dados foi válida. 
Transforma o valor da parte numérica da variável B$ multipli¬ 
cada por 2 e subtrai 1, o resultado é colocado na variável L. 


linha 230 - Multiplica a parte alfanumérica da variável B$ por 2 e subtrai 
75, coloca o resultado na variável T. 

linha 240- Verifica qual o valor que ocupa a posição (L, T) na matriz A e 
coloca este valor na variável B. 

linha 250 - Se o valor de B for igual a 1, isto significa que você acertou um 
cruzador e o programa vai para a linha 330. 
linha 260 - Se o valor da variável B for igual a 2, isto significa que você acer¬ 
tou uma fragata e o programa vai para a linha 360. 
linha 270 - Se o valor da variável B for igual a 3, isto significa que você acer¬ 
tou um hidro-avião e o programa vai para a linha 390. 
linha 280 - Imprime na posição (T, L) uma letra X indicando que você errou 
o tiro. 

5? Parte — Verificação FIM de Jogo (linha 290 a 320) 

linha 290 - Subtrai 1 da variável G, indicando que você acaba de usar o tor¬ 
pedo. 

linha 300- Imprime na posição (13, 20) a palavra SOBRAM seguido pelo 
valor da variável G e pela palavra TORPEDOS, 
linha 310 - Verifica se acabaram os torpedos do seu arsenal, caso tenham aca¬ 
bado o programa vai para a linha 690. 
linha 320 - Manda o programa para a linha 200. 


6? Parte - Tiro Certeiro (linha 330 a 410) 

linha 330- Iguala a variável C a 168 que é o código do inimigo que você 
acertou, no caso um cruzador. 

linha 340 - Iguala a variável V a 20, que é o número de pontos que o curza- 
dor vale. 

linha 350 - Manda o programa para a linha 600. 

linha 360 - Iguala a variável C a 171 que é o código do inimigo que você acer¬ 
tou, no caso uma fragata. 

linha 370 - Iguala a variável V a 10, que é o número de pontos que a fragata 
vaie. 

linha 380 - Manda o programa para a linha 600. 

linha 390 - Iguala a variável C a 173 que é o código do inimigo que você acer¬ 
tou, no caso um hidro-avião. 

linha 410 - Iguala a variável V a 30, que é o número de pontos que o hidro¬ 
avião vale. 

linha 410 - Manda o programa para a linha 600. 
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7? Parte — Rotina de Impressão das Coordenadas (linha 420 a 520) 

linha 420 - Iguala a variável N a 1. A variável N guardará os valores das coor¬ 
denadas numéricas que serão impressas na linha 440. 
linha 430 - Inicia um LOOP de 9 voltas que começa no 1 e vai até o 17 pu¬ 
lando de 2 em 2. 

linha 440 - Imprime na posição (0, L) a variável N. 
linha 450 - Soma 1 a variável N. 
linha 460 - Finaliza o LOOP. 

linha 470 - Iguala a variável D a 38. A variável D guardará o código das coor¬ 
denadas alfanuméricas impressas na linha 490. 
linha 480 - Inicia um LOOP de 15 voltas que começa no 1 e vai até 29 pu¬ 
lando de 2 em 2. 

linha 490 - imprime na posição (T, 0) o caractere que tem o valor na variá¬ 
vel D. 

linha 500 - Soma 1 a variável D. 

linha 510 - Finaliza o LOOP. 

linha 520 - Retorna ao programa principal. 

8? Parte — Rotina de colocação aleatória do Inimigo (linha 530 a 590) 
Unha 530 - inicia um LOOP de 10 voltas. 

linha 540- Iguala a variável T a um valor aleatório que pode ser qualquer 
número inteiro e ímpar entre 1 e 27. 

linha 550 - Iguala a variável L a um valor aleatório que pode ser qualquer 
número inteiro e ímpar entre 1 e 17. 

linha 560- Imprime na posição (T, L) o caractere cujo código está armaze¬ 
nado na variável C. A variável C foi definida no programa princi¬ 
pal. 

Unha 570 - Faz a posição (L, T) na matriz A ter um valor igual ao da variá¬ 
vel V. A variável V foi definida no programa principal, 
linha 580 - Finaliza o LOOP. 
linha 590 - Retorna ao programa principal. 

9? Parte — Naufrágio do Inimigo (linha 600 a 680) 

linha 600 - Imprime na posição (T, L) o caractere cujo código está armazena¬ 
do na variável C. A variável C foi definida no programa principal, 
linha 610 - Imprime na posição (0, 21) a palavra AFUNDOU .. . 

Unha 620 - Soma a variável P o valor da variável V. 
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linha 630 - Imprime na posição (0, 20) a palavra PLACAR - seguido do valor 
da variável P. 

linha 640 - Subtrai 1 da variável G. 

linha 650- Imprime na posição (13, 20) a palavra SOBRAM seguido pelo 
valor da variável G e pela palavra TORPEDOS, 
linha 660- Imprime na posição (0, 21) 10 espaços em branco, para apagar 
a mensagem impressa na linha 610. 

linha 670 - Verifica se acabaram os torpedos do seu arsenal. Caso eles tenham 
acabado, o programa vai para a linha 690. 
linha 680 - Manda o programa para a linha 200. 

10? Parte — Finalização (linha 690 a 750) 

Unha 690 - imprime na posição (0, 21) a mensagem "DESEJA JOGAR 
NOVAMENTE" ? (S/N). 

linha 700 - Se você pressionar a tecla S o programa roda novamente, 
linha 710 - Se você pressionar a tecla N o programa vai para a linha 730. 
linha 720 - Manda o programa para a linha 700. 
linha 730 - Limpa todo o conteúdo da teia. 

linha 740 - Imprime na posição (10, 10) a palavra FIM em vídeo inverso, 
linha 750 - Pára o programa. 

11? Parte — Finalização (linha 760 a 770) 

linha 760 - Armazena o programa em fita com o nome de "ATAQUE SUB¬ 
MARINO". 

linha 770 - Roda o programa. 


MODIFICAÇÕES 

Modificação 1 

Você pode alterar o número de torpedos que possui no início do jogo, 
alterando a linha 180: 

180 LET G = número de torpedos desejado 
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Modificação 2 


Você pode modificar o tempo que os inimigos permanecem no radar, 
alterando a linha 150. Quanto maior for o número que você colocar após o 
comando PAUSE, maior será o tempo que eles permanecerão no radar. 


QUADRO DAS VARIÁVEIS DO PROGRAMA 


A - matriz que é uma cópia da teia 
P - seu placar 

C - valor do caractere que é impresso na rotina de impressão 
V - representações dos inimigos na matriz A 
G - número de torpedos no arsenal 
B$ - coordenadas 

L - transforma as coordenadas entradas em valores da matriz 

T - transforma as coordenadas entradas em valores da matriz 

B - valor que ocupa a posição (L, T) na matriz A 
D - código das coordenadas alfanuméricas 
N - valor das coordenadas numéricas 


E - variável contadora de LOOP, 
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apêndice A 


Neste apêndice nós apresentamos o programa SENHA com todas as 
modificações que foram sugeridas no primeiro capítulo. 


10 hRINí 

*1 •“ - 11 ET f. i Lj 1 * 

H ! U -L ÜL 1 ■ -w i— 5 'i ri h 

11 PRINT 

‘ r U U UC UUEh! NUMtHUS 

REPETIDOS 

t í 

12 INPUT 

H ■$ 

13 PRINT 

H $ 

14* P* h! I NT 

j . 1 UUHNTU Z' HLUHK I o nU Z' 

TERA 0 NU 

r, «« 

MÊROQUE EU UOU ESCOLHE 

K : 

15 INPUT 

x 

15 PRINT 

>; 

17 PRINT 

,, 1 EU POSSO ESCOLHER 

NUMEROS EN’ 

TRÈ 0 E ?" 

18 INPUT 

B $ 

19 PRINT 

5$ 

20 LET Y 

=C0DE 8$ 

21 PRINT 

“QUANTAS CHANCES vO 


CE QUER TER PARA ACERTAR ü NUM 
ERG ?" 

22 INPUT UI 

H wK XNT r i Eo 1 H BtH i H.b U HK D Z. 
ENQUANTO EU ' ESCOLHO 0 NUME 

pfi # •* 

*24 PAUSE 100 

25 CLS 

26 LET L$ = ““ 

27 pnp TO X 

28 LET L $ =L $ + “ “ 

29 NEXT J 

30 DIM NÍ(X) 

35 DIM G$(X) 

40 DIM U$ íX) 

50 LET C =0 

0 KH 1*4 L-’ 

c cr se Lj -c { 

Ww* i H*_' 1 

70 FOR 1=1 TO X 

80 LET N$m=CHR$ INT (RND* ( - - 

O ' 1 j. O C* V 

tt i i r i 
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pnpnH i J} 


Neste apêndice nós iremos estudar as linhas 590 a 700 do programa 
PRÉDIOS, também iremos estudar como fazer as devidas modificações nestas 
linhas. Para facilitar o estudo das linhas vamos desmembrar a linha 610 em 
várias outras linhas. As novas linhas ficarão assim: 


501 

r» D *r r- 
i~ n. JL ! M J 

P 5 

£1,0B $ 


502 

ri j—t t '■ i”r 

r H i. i ‘i s 

RT 

20,0;fl$ 


503 

PRINT 

RT 

o *1 ■“ x~\ ♦ «« *' 


504. 

PRINT 

RT 

13 2; B$ C TO 

írí O 

505 

PRINT 

R I 

12,2;fl$( TO 

.-" l 

505 

PRINT 

RT 

13,11B$ í TO 

O 

t«07 

PRINT 

H í 

17,11;( TO 

O 

505 

PRINT 

RT 

3,7;B 4 í TO 2 

*"!* *t 

509 

PRINT 

RT 

7,7; 1=1$ í TO 2 

3} 

510 

PR INT 

0 1 

•5,19; B $ i T 0 

1 i 

*1* aJL 

611 

PRINT 

t““! i 

4,ly; h$ i Tu 

1 1 


EXPLICAÇÃO 

linha 590 - Iguala a variável A$ aos pregos martelados (30 pontos), 
linha 600 - Iguala a variável B$ à plataforma (30 espaços inversos), 
linha 601 - Imprime na posição (0,21) a variável B$ inteira, 
linha 602 - Imprime na posição (0,20) a variável A$ inteira, 
linha 603 - Imprime na posição (30, 21) dois espaços inversos, 
linha 604- Imprime na posição (2, 13) a variável B$, só que agora ela não 
é impressa inteira, só é impressa até o vigésimo oitavo caractere, 
linha 605- Imprime na posição (2, 12) a variável A$ até o vigésimo oitavo 
caractere. 

linha 606 - Imprime na posição (11, 18) a variável B$ até o oitavo caractere, 
linha 607 - Imprime na posição (11, 17) a variável A$ até o oitavo caractere, 
linha 608- Imprime na posição (7, 8) a variável B$ até o vigésimo terceiro 
caractere. 

linha 609 - Imprime na posição (7, 7) a variável A$ até o vigésimo terceiro 
caractere. 
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linha 610 - Imprime na posição (19, 5} a variável B$ até o décimo primeiro 
caractere. 

linha 610 - Imprime na posição (19, 4) a variável A$ até o décimo primeiro 
caractere. 

As linhas 620 até a 700 são LOOPs sucessivos para imprimir as escadas, 
linha 710 - Passa o computador para o modo SLOW. 
linha 720 - Retorna ao programa principal. 

Para você modificar o prédio copie uma das páginas do apêndice C e de¬ 
senhe o seu prédio. Lembre-se que as duas últimas colunas são reservadas para 
o elevador. 

A figura do prédio original é a que segue: 



o 2 4 6 8 10 12 14 16 18 30 22 24 26 28 30 


Compare a figura 1 com a explicação das linhas 600 a 700 e modifique 
o prédio para que ele fique como você quer. 

Logo após a modificação do prédio conte o número de pregos qu exis¬ 
tem para ser arrancados é subtraia 1 e coloque o valor encontrado na linha 
360, ela irá ficar assim: 

360 IF DE = valor encontrado THEN GOTO 540 
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apêndice C 


Se você quiser alterar o display de algum jogo, deverá relocar algumas posi¬ 
ções de PRINT. Para isto estamos publicando algumas cópias da tela de ma¬ 
neira que você possa se organizar. 
























apêndice D 


Neste apêndice são fornecidos os códigos decimais do TK com os seus 
respectivos códigos em hexadecimal e seus caracteres, que servirão para o lei¬ 
tor quando for modificar algum programa. 
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coleção 




USANDO 

LINGUAGEM DE MÁQUINA 

APLICAÇÕES EM ASSEMBLY Z80 
MÁRIO SCHAEFFER 

Uma obra original, realmente didática, 
para aprendizado e consulta. 

Instruções para o uso de linguagem de 
máquina em computadores compatíveis 
com Sinclair (RINGO, ZX-81, TS-1000, 
NEZ 8000, TK-82C, TK-85, TK-83). 

Como usar as sub-rotinas da ROM, 
inclusive para cálculos científicos. 

Mário Shaeffer mostra com muita in¬ 
teligência e didática, como fazer verda¬ 
deiros milagres de programação utilizando 
Linguagem de Máquina, fornecendo mui¬ 
tíssimos exemplos de aplicação e brindan¬ 
do o leitor com uma série de programas 
úteis e divertidos. 

DISSECANDO JOGOS 
em BASIC TK comentado linha por linha 
CARLOS EDUARDO ROCHASALVATO 

Os sete jogos contidos neste volume 
tem uma característica única: o leitor par¬ 
ticipa do processo de criação acompanhan¬ 
do a montagem linha por linha. 

Modificações e aperfeiçoamentos são 
propostos e resolvidos com detalhes. Ao 
terminar este livro o leitor além de ter 
sete jogos geniais, terá adquirido a habili¬ 
dade de programar com criatividade. 

Uma obra didática indispensável ao 
usuário de um micro da linha SINCLAIR: 
Ringo R-470, CP-200, TK-82/83/85, AS- 
1000, SINCLAIR ZX-81 ou TS-1000. 
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JOGOS EM LINGUAGEM 
DE MÃQÜINA - VOL I 
Selecionados por PIERLUIGI PIAZZI 

Use suas habilidades, sua inteligência e 
seus reflexos: viva os jogos que você mes¬ 
mo digitou. 

JOGOS EM LINGUAGEM DE MÁ¬ 
QUINA é um livro fascinante, rico em ex¬ 
plicações do qual você extrairá uma quan¬ 
tidade enorme de programas. 

A digitação dos programas não exige 
conhecimento de linguagem de máquina. 


JOGOS EM LINGUAGEM 
DE MÁQUINA-VOL. II 
Selecionados por PIERLUIGI PIAZZI 
Para quem já se deliciou com o Volu¬ 
me l desta coleção, mais programas e jo¬ 
gos interessantíssimos e fascinantes: 
JOGOS DE AÇÃO: 

- WARDOZ 

- CICLO TRON 

- PACMAN 

— CORRIDA DO OURO . 

- TÚNEL 

JOGOS INTELIGENTES: Criatividade 
e um magnífico xadrez, com instruções 
detalhadas e informações curiosas sobre 
este jogo tão antigo e tão atual. 

Todos os jogos em ASSEMBLY Z-80, 
de execução rápida. Uma obra de lazer 
e de consulta para usuários de micro-com¬ 
putadores compatíveis com SINCLAIR 
ZX-81: TK-82, RINGO, R-470, CP-200, 
TK-83, AS-1000 e TK-85. 

Pelo preço de uma fita, uma quantida¬ 
de incrível de programas geniais! 


JOGOS EM LINGUAGEM 
DE MÁQUINA - VOL. III 

Selecionados por PIERLUIGI PIAZZI 

Continuando a série, mais jogos inédi¬ 
tos: 

- INVASÃO 

- I.R.A. 

- VERMES DE AREIA (Duna) 

- BASQUETE 

- FROGGIE 
e muitos outros. 

Desenvolva o lado direito de seu cére¬ 
bro (visão espacial) jogando o fascinante 
DÉDALO. 

A digitação não exige conhecimento 
de Linguagem de Máquina. 

Jogos em ASSEMBLY Z-80 para com¬ 
putadores compatíveis com SINCLAIR 
ZX-81 (TK-82/83/85, CP-200, TS-1000, 
etc.)„ 

COLEÇÃO DE PROGRAMAS 
VOLUME III 

RICARDO DE FAYETTI SIQUEIRA 

Aos iniciantes no uso de um micro¬ 
computador pessoal, nada melhor, para o 
aprendizado, do que a digitação de pro¬ 
gramas e sua posterior análise e adapta¬ 
ção. Esta coleção pretende fornecer sub¬ 
sídios para o aprendizado e o lazer do 
usuário, apresentando tanto programas de 
jogos, quanto programas didáticos na área 
de matemática, da física e da química. 

O Volume III da COLEÇÃO DE PRO¬ 
GRAMAS é portanto indicado para estu¬ 
dantes, adolescentes e iniciantes na fasci¬ 
nante técnica (e arte) de programar um 
computador pessoal. 
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CRIANDO EM 

linguagem de máquina 

SAMUEL EJCHEL 

Não basta se conhecer as instruções do 
ASSEM BLY para se criar um programa 
interessante: existem truques e "dicas" In- 
dispensáveis para o bom programador 
Gerenciando a tela 
Utilizando o teclado 
Usando o Joystick 
Gerando movimentos múltiplos 
Criando opções 
Implementando "requintes" 

Em cada capítulo um jogo original, to¬ 
talmente explicado, ilustrando os truques 
de programação utilizados. 

Uma obra indispensáveis para quem 
programa em micros da linha SINCLAIR: 
CP-200 - RINGO - TK-82/83/85 - AS- 
1000. 


TABELA DE MNEMÓNICOS Z80 
Tabela de cartolina plastificada para 
consulta rápida das instruções do Z80, 
seus códigos hexadecimais e abreviações 
mnemónicas. Indispensável para quem 
programa em linguagem de máquina. 

Para computadores da linha SIN¬ 
CLAIR ZX81 (TK-82/83/85, CP-200, 
Ringo, AS-1000) e TRS80 (CP-300/500, 
JR SYSDATA, D-8000/8001/8002, 
DGT-100/ÍÜ1). 



BASIC TK-VOL. II 

PIERLU1GI PIAZZI/FLAVIO ROSS1NI 

A continuação de um dos maiores su¬ 
cessos editoriais em informática. 

Aprofundamento do BASIC com es¬ 
trutura de programação. 

Truques utilizando o sistema operacio¬ 
nal dos micros da linha SINCLAI R*(ZX- 
81, TK-82/83/85, CP-200, RINGO). 

> 

Uma obra elaborada com os mesmos 
cuidados didáticos do Volume I. 



EVOLUINDO NO BASIC TK 

BERNARDO STEIN 

Uma coletânea de programas em BASIC 
explicados detalhadamente, que transfor¬ 
ma p micro em: 

O DESENHISTA 
O SENTINELA 
O PROFESSOR 

e mais uma série de interessantíssimas fun¬ 
ções. 

Um livro didático escrito num estilo 
simples e bem humorado para usuários de 
TK-82/83/85, CP-200, RINGO e ZX-81. 


Querendo adquirir um destes livros escreva para: 

ALEPH 


PUBLICAÇÕES E ASSESSORIA PEDAGÓGICA LTDA. 
Av. Brig. Faria Lima, 1451 - conj. 31 
01451 - São Paulo - SP-TeL: (011) 813-4555 
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LIBERTE 0 GÊNIO DO SEU MICRO 




s o.* 

M 


CURSO 


Z&o 






f )£ò CURSO DE ASSEMBLY 

* jr^ , ' O seu micro de lógica SINCLAIR 

O (RINGO, CP-200, TK82/83/85, AS 

s~i: ^ Í000 f etc.) bem como os compatíveis 

t— U » V* com TRS-80, têm um micro processa- 

\ dorZ-80. 

Aprendendo Linguagem de Máquina 
(ASSEMBLY Z 80) vocc poderá co¬ 
mandar dirctamcntc o microprocessador 
estruturando programas muitas vezes mais rápidos do que 
cm BASIC e gastando muito menos memória. 

Xn a ^ ASSEMBLY como fez o FLAVIO ROSSINI (autor do LIN¬ 

GUAGEM DE MAQUINA PARA O TK . Ed. MODERNA) assistindo às aulas do 
professor FRANCISCO A.S. DE OLIVEIRA. 

nn C n£?r (4 *° h ° ra . s) U . (40 horas ) são no NÚCLEO DE ORIENTAÇÃO 
,, ^ o * A Y* ® rl S- Faria Lima, 1451 conj. 31, em vários horários, inclusive 

aos sábados. Para Informações ligue para (011) 813-4555. 
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impresso na 

planimpress gráfica e editora 
rua anhaia, 247 - s.p. 






